home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / asm / Tandem.lha / Tandem / Teaching / 17.asm < prev    next >
Encoding:
Assembly Source File  |  1999-08-21  |  298 b   |  20 lines
  1. * 17.asm   macro's with parameters      version 0.00   1.9.97
  2.  
  3. * let \3 = \1 * \2
  4. multi: macro
  5.  move.l d0,-(a7)
  6.  move.l \1,d0
  7.  mulu \2,d0
  8.  move.l d0,\3
  9.  move.l (a7)+,d0
  10.  endm
  11.  
  12. * do some multiplications
  13. Program:
  14.  moveq #16,d0
  15.  multi d0,#16,d1
  16.  multi d1,#16,d2
  17.  multi d2,#16,d3
  18.  multi d3,#16,d4
  19.  rts
  20.